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18-Sep-1984 01:38:40 VAX-11 Bliss-32 V4.0-742 Page 1) 
14-Sep-1984 12:35:1 DISKSVMSMASTER: CINIT.SRCJINITIO.B32;1 (1) | 
MODULE INITIO ( 


BEGIN | 


' 
Lee R RARE RRA ARARAR AAA eehe 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


iw THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY B 
TERMS OF SUCH 


USED AND COPIED 
'® ONLY IN ACCORDANCE WITH THE THE 


® 
*® 
*® 
® 
® 
® 
E * 
LICENSE AND WITH * 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!* TRANSFERRED. * 
. ® 
:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
!s CORPORATION. * 
: ® 
!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
:# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
*® 
| pegneninnerbuphecsinbebveensenneetasaeintnberenentianshtnbiiebbeabennebeses 
144 
' 
; FACILITY: INIT Utility Structure Level 1 | 
i ABSTRACT: | 
: These routines do basic disk 1/0. 
i ENVIRONMENT : 
| 
. | 
| | 


STARLET operating system, including privileged system services 
and internal exec routines. 


' 

' 

' 

' 

' 

: AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Nov-1977 19:42 
i MODIFIED BY: 
i 

i 
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v03-001 ACG0361 Andrew C. Goldstein, 21-Sep-1983 17:06 
Eliminate READ_PHYSICAL routine 
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LIBRARY ‘SYSS$LIBRARY:LIB.L32'; 
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it 18869-1364 Pbi38i98 | UN dUmBmASPERSc INI? ssReaiNITi0.832;1°%° (19, 


58 1 REQUIRE ‘SRC$:INIDEF.832'; 
35 328 i REQUIRE *LIBDS:CVMSLIB.OBJJINITMSG.B32'; 
61 4 ¢ 1 
6 4 1 FORWARD ROUTINE 
6 4 1 READ BLOCK, : read block by LBN 
64 485 1 WRITE_BLOCK : NOVALUE; ! write block by LBN 


4. Page 3) 
NIT.SRCJINITIO.B32;1 (2) | 
GLOBAL ROUTINE READ_BLOCK (LBN, BUFFER) = 


END; ! end of routine READ_BLOCK 


-TITLE INITIO 


: 4 1 
: = rae 
; oo 4, 3 1 lee 
; 69 4 1! 
; 4 Be30 ! FUNCTIONAL DESCRIPTION: 
3 g rh : } This routine reads a disk block by logical block number. 
3 74 0494 1! 
; 2 0495 1 ! CALLING SEQUENCE: 
3 76 0496 1! READ_BLOCK (ARG1, ARG2) 
: 77 eet 1! 
; 78 496 1 ! INPUT PARAMETERS: 
: 79 0499 1! ARG1: Logical block number 
: 80 0500 1! ARG2: buffer address 
;. 8} 0501 1! 
; «8 Q90@ 1 | IMPLICIT INPUTS: 
; § 0503 1! CHANNEL: channel number assigned to disk 
;s 8 0506 1! 
; 85 0505 1 ! OUTPUT PARAMETERS: 
5; 0506 1! NONE 
Sir) Ge 0507 1! 
3 88 0508 1 ! IMPLICIT OUTPUTS: 
; 8 0509 1! NONE 
; 0510 1! 
: 91 0511 1 ! ROUTINE VALUE: 
3 Ge b21§ , ¢ status of read 
s 9 0513 1! 
3 94 Bate 1 ! SIDE EFFECTS: 
: 95 ae 3.8 block read into buffer 
; 0516 1! 
: 97 0517 1 !=- 
; #698 0518 1 
; a] 0519 2 BEGIN 
: 100 0520 2 
: 101 0521 § LOCAL : 
: 102 0522 STATUS ' system service status 
> 103 0523 2 10_STATUS : VECTOR C4, WORD]; ! 1/0 status block 
: 106 b3se 2 
s 105 0525 2 EXTERNAL 
: 106 0526 § CHANNEL; ' 1/0 channel number 
: 107 base 
: 108 0528 
; 109 P 0298 STATUS = $Q]0W (CHAN = .CHANNEL, 
: 110 P 0550 FUNC = I0$ REALL. 
ee ih P 0531 10SB = 10 STATUS(OJ, 
: 118 BE B2a¢ Pi os gOFFER, 
3: «11 P 053 Ps = 512, 
: 1146 P 0534 P = .LBN 
: 115 0535 ); 
: 116 0536 2 IF .STATUS THEN STATUS = .10_STATUSCO]; 
. oF 0537 RETURN .STATUS; 
: 118 0538 
; 119 0539 
| 
| 
| 
t 


INIT 1b-5e Sep-1984 24 VAX=11 Bliss=-32 V4.0-742 4 
© ¥04~090 Sep-1 382 93: 38: 18 DISKSVMSMASTER:CINIT.SRCJINITIO.832; 39 2) 
| -IDENT \V04-000\ 


-EXTRN CHANNEL, SYSS$QIOW 
-PSECT S$CODES$,NOWRT,2 


0000 0000 .ENTRY READ BLOCK, Save nothin : 0486. 
SE 08 cp aye SUBL2 WB . ; | 
7E 7° 0000 CLRO 4 i : 0535 
7E D4 00007 CLRL SP) : 
| 04 Ac pp 00009 PUSHL ; 
| 7E 0200 BF 3C 9900¢ MOVZWL re -(SP) : 
| 08 Ac bp 0011 PUSHL BUFFER : 
7E 7C 00014 CLRQ. = : 
20 AE 9F 00016 PUSHAB 10 STATUS ; 
21 DD 00019 PUSHL #33 : 
00006 CF DD 0001B PUSHL CHANNEL ; 
7E 04 OOO1F CLRL. = : 
000000006 00 OC FB 00021 CALLS ne  syssazow : 
03 50 E9 00028 BLBC STATUS, 1 + 0536 
50 6— 3C 00028 MOVZWiL IO_STATUS, STATUS ; 
04 0002E 18: RET : 0539 


; Routine Size: 47 bytes, Routine Base: $CODE$ + 0000 
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B. 
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198 


0000 00000 
5E 8 Ge bp dg 
E 7C 0000 
7E 04 00007 
06 AC bo Babe 
7E 0200 + 8F C Bye 
08 Ac bd 001 
AE OF 00016 
7E 4039 8t zt Mitts 
0000G CF ODD 88055 
7E D4 $5 
00000000G 00 Of FB 00024 
06 0 F? 00028 
50 6E C itd 
09 50 €8 00031 
50 DD 00034 1$: 
00000000G 00 01 FB 00036 
04 0003D 2$: 
; Routine Size: 62 bytes, Routine Base: S$CODE$ + 002F 
: 176 0595 
<< re 0596 END 
: 178 0597 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
> $CODES 109 NOVEC,NOWRT, RD, EXE,NOSHR, 
3 Library Statistics 
SS A eggs a noe Ree abe eee Symbols -------- 
A File Total poe Percent 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 10 0 
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LCL, R 


Pages 
Mapped 


1000 


BATE PLOCK. Save nothing 


4 SYS$Q10W 


U 
10 status STATUS 
STATUS, 2$ 

5 aTus. 
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LIBSSTOP 


EL, CON,NOPIC,ALIGN(2) 
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HL 80 1ezeP-]3Re 93:88:48 NE ddwShASFERSCINIS cone amnt10.032:1°%° «35 
: COMMAND QUALIFIERS 

BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:INIT10/OBJ=0BJ$: INITIO MSRCS:INITIO/UPDATE=(ENH$: INITIO) 


3 ig 109 °8.6 + 0 data bytes 
: Ele eg tees 7 

: Lines/CPU Min sf5° 

3 Lexenes/CPU-Kin: 4627 
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